home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / likene1a / myprog2.frm < prev    next >
Text File  |  1999-09-24  |  6KB  |  257 lines
  1. VERSION 5.00
  2. Begin VB.Form Form12 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "My Prog"
  5.    ClientHeight    =   1560
  6.    ClientLeft      =   4605
  7.    ClientTop       =   3900
  8.    ClientWidth     =   3960
  9.    ControlBox      =   0   'False
  10.    FillStyle       =   0  'Solid
  11.    BeginProperty Font 
  12.       Name            =   "Arial"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "myprog2.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   1560
  25.    ScaleWidth      =   3960
  26.    ShowInTaskbar   =   0   'False
  27.    Begin VB.TextBox Text3 
  28.       Height          =   315
  29.       Left            =   1560
  30.       TabIndex        =   8
  31.       Text            =   "URL"
  32.       Top             =   120
  33.       Width           =   2415
  34.    End
  35.    Begin VB.Timer Timer1 
  36.       Left            =   3720
  37.       Top             =   1560
  38.    End
  39.    Begin VB.TextBox Text2 
  40.       Height          =   315
  41.       Left            =   1560
  42.       TabIndex        =   7
  43.       Text            =   "Insert IP address here"
  44.       Top             =   480
  45.       Width           =   2415
  46.    End
  47.    Begin VB.CommandButton Command27 
  48.       Caption         =   "Mouse stuff"
  49.       Height          =   375
  50.       Left            =   2520
  51.       TabIndex        =   3
  52.       Top             =   1200
  53.       Width           =   1455
  54.    End
  55.    Begin VB.CommandButton Command6 
  56.       Caption         =   "Windows stuff"
  57.       Height          =   375
  58.       Left            =   2520
  59.       TabIndex        =   1
  60.       Top             =   840
  61.       Width           =   1455
  62.    End
  63.    Begin VB.CommandButton Command1 
  64.       Caption         =   "Connect"
  65.       Height          =   735
  66.       Left            =   1440
  67.       TabIndex        =   4
  68.       Top             =   840
  69.       Width           =   1095
  70.    End
  71.    Begin VB.CommandButton Command25 
  72.       Caption         =   "Exit"
  73.       Height          =   375
  74.       Left            =   0
  75.       TabIndex        =   2
  76.       Top             =   1200
  77.       Width           =   1455
  78.    End
  79.    Begin VB.CommandButton Command8 
  80.       Caption         =   "Miscellaneous"
  81.       Height          =   375
  82.       Left            =   0
  83.       TabIndex        =   0
  84.       Top             =   840
  85.       Width           =   1455
  86.    End
  87.    Begin VB.CommandButton Command2 
  88.       Caption         =   "Goto URL"
  89.       Height          =   375
  90.       Left            =   0
  91.       TabIndex        =   5
  92.       Top             =   480
  93.       Width           =   1455
  94.    End
  95.    Begin VB.CommandButton Command30 
  96.       Caption         =   "Open Pog."
  97.       Height          =   375
  98.       Left            =   0
  99.       TabIndex        =   6
  100.       Top             =   120
  101.       Width           =   1455
  102.    End
  103. End
  104. Attribute VB_Name = "Form12"
  105. Attribute VB_GlobalNameSpace = False
  106. Attribute VB_Creatable = False
  107. Attribute VB_PredeclaredId = True
  108. Attribute VB_Exposed = False
  109. Dim mmflag As Boolean
  110. Dim sax As Integer
  111. Dim Say As Integer
  112.  
  113. Private Sub Command11_Click()
  114. Load form2
  115. form2.Show
  116. End Sub
  117.  
  118. Private Sub Command1_Click()
  119. Command30.Enabled = False
  120. Command2.Enabled = False
  121. Command8.Enabled = False
  122. Command6.Enabled = False
  123. Command27.Enabled = False
  124.  
  125. If Command1.Caption = "Connect" Then
  126. Command1.Caption = "Connecting"
  127. ElseIf Command1.Caption = "Connecting" Then
  128. Command1.Caption = "Cancel"
  129. ElseIf Command1.Caption = "Cancel" Then
  130. Command1.Caption = "Connect"
  131. Form12.Caption = "My prog"
  132. End If
  133.  
  134. If Command1.Caption = "Connecting" Then
  135. Command1.Enabled = False
  136. Form12.Caption = "Connecting"
  137. Dim pausetime As Integer
  138. pausetime = 5
  139. start = Timer
  140.  
  141.  
  142. Do While Timer < start + pausetime
  143.  
  144.  
  145.     DoEvents
  146.     Loop
  147.  
  148.     finish = Timer
  149. Command1.Enabled = True
  150. Command1.Caption = "Cancel"
  151. Form12.Caption = "Connected"
  152. End If
  153. If Command1.Caption = "Cancel" Then
  154. Command30.Enabled = True
  155. Command2.Enabled = True
  156. Command8.Enabled = True
  157. Command6.Enabled = True
  158. Command27.Enabled = True
  159. End If
  160.  
  161. End Sub
  162.  
  163. Private Sub Command2_Click()
  164. Shell "start http://" & Text3.Text
  165. End Sub
  166.  
  167. Private Sub Command27_Click()
  168. Load Form4
  169. Form4.Show
  170. End Sub
  171.  
  172. Private Sub Command25_Click()
  173.     Call ImplodeForm(Me, 2, 500, 1)
  174.     End
  175.     Set Form1 = Nothing
  176. End Sub
  177.  
  178. Private Sub Command3_Click()
  179. Load Form6
  180. Form6.Show
  181. Command6.Enabled = True
  182. Command2.Enabled = True
  183. Command8.Enabled = True
  184. Command27.Enabled = True
  185. Command12.Enabled = True
  186. Command1.Enabled = True
  187. Command18.Enabled = True
  188. Command21.Enabled = True
  189. Combo1.Enabled = True
  190. Text6.Enabled = True
  191. Text3.Enabled = True
  192. Form6.Hide
  193. Command3.Visible = False
  194. End Sub
  195.  
  196. Private Sub Command30_Click()
  197. DirControls.Show
  198. End Sub
  199.  
  200. Private Sub Command6_Click()
  201. Load form2
  202. form2.Show
  203. End Sub
  204.  
  205. Private Sub Command8_Click()
  206. Load frmmain
  207. frmmain.Show
  208. End Sub
  209.  
  210. Private Sub Form_Load()
  211. Load Me
  212. Command30.Enabled = False
  213. Command2.Enabled = False
  214. Command8.Enabled = False
  215. Command6.Enabled = False
  216. Command27.Enabled = False
  217.  
  218. End Sub
  219.  
  220. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  221. Call ImplodeForm(Me, 2, 500, 1)
  222. End Sub
  223.  
  224. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  225.    Dim fml As Long
  226.    Dim fmt As Long
  227.    Dim a As Integer
  228.    If mmflag = True Then
  229.       fml = Me.Left: fmt = Me.Top
  230.       If X > sax Then Me.Left = fml + (X - sax)
  231.         If X < sax Then Me.Left = fml - (sax - X)
  232.       If Y > Say Then Me.Top = fmt + (Y - Say)
  233.       If Y < Say Then Me.Top = fmt - (Say - Y)
  234.    End If
  235.    End Sub
  236. Private Sub form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  237.  
  238. If mmflag = False Then
  239.       sax = X
  240.       Say = Y
  241.       mmflag = True
  242.    End If
  243.    Me.MousePointer = vbSizePointer
  244.    Timer1.Enabled = False
  245.    End Sub
  246. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  247.     mmflag = False
  248.    Me.MousePointer = vbDefault
  249. End Sub
  250.  
  251. Private Sub Picture1_Click()
  252. Picturesave.Picture = Picture1.Picture
  253. Picture1.Picture = Picture2.Picture
  254.  
  255. End Sub
  256.  
  257.